home *** CD-ROM | disk | FTP | other *** search

---

/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Mag / B-C / BushWhacker / NL Iss #03 May.cpt / NL Iss #03 May / Page 2 (.png)

< prev

next >

MacDraw  |  1992-04-17  |  3KB  |  816x1056  |  8-bit (256 colors)

Labels: text | font | screenshot | black and white | document
OCR: Flip Program done in ZBasic for the Macintosh. General Statement Program done by Ralph Wasmer for Bushwhacker Newsletter. Write a program to count the times For more information write: that heads comes up in a coin toss. Ralph E. Wasmer 50% chance that each time a coin 608 North Prairie is flipped that it will come up heads. Yates Center, KS. 66783 Take a random function, take that part of it that is above 50% and call that heads, below tails. Count the number of times that heads 00010 BREAK ON "comes" up on the counter. 00011 DEF LEN 6 Print out a record of the events. 00020 LET Q! = 0 00030 FOR Y! = 1 TO 4 00040 REM 00050 LET C = 0 00060 FOR X = 1 TO 50 00070 LET F=(RND(10000) * RND 002 FOR Y = 1 TO 10 (10000)/10000000) 005 LET C=0 00080 IF F <= 1 THEN 110 010 FOR X = 1 TO 50 00090 PRINT ...

---